home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / clients / judy.prg < prev    next >
Text File  |  1985-05-31  |  2KB  |  81 lines
  1. *BEGIN JUDY.PRG
  2. SET TALK OFF
  3. CLEAR
  4. @01,00 SAY 'Loading.....'
  5. curr = '0'
  6. msel = ' '
  7. SET PROCEDURE TO MAIN
  8. USE CURRENT INDEX CURRNAME, CURRNMBR
  9. SELE 2
  10. USE CLOSED INDEX CLOSNAME, CLOSNMBR
  11. SELE 3
  12. USE MENUS INDEX MENUS
  13. SELE CURRENT
  14. DO WHILE .T.
  15.   *if at a processing node: do processing
  16.   IF CURR$'A1P1P2P3P4P5E1E2E3E4C1C2'
  17.      CLEAR
  18.      SELE CURRENT
  19.      DO &CURR
  20.   ENDIF
  21.   term = .f.
  22.   msel = ' '
  23.   clear
  24.   sele menus
  25.   SET EXACT ON
  26.   find &curr
  27.   SET EXACT OFF
  28.   STORE NAM TO MENU
  29.   STORE XY TO X_Y
  30.   STORE TRIM(RGT) TO RIGHT
  31.  
  32.   @02,27 SAY NAM
  33.   @05,27 SAY L5
  34.   @07,27 SAY L7
  35.   @09,27 SAY L9
  36.   @11,27 SAY L11
  37.   @13,27 SAY L13
  38.   @15,27 SAY L15
  39.   @17,27 SAY L17
  40.   *GET USER SELECTION
  41.   @ &X_Y GET msel pict '!'
  42.   read
  43.   clear gets
  44.   DO WHILE .NOT. msel $'&right'
  45.      @23,24 say CHR(7)+'IMPROPER INPUT'
  46.      *TIMING LOOP
  47.      XX = 1
  48.      DO WHILE XX <35
  49.         xx = xx+1
  50.      ENDDO while xx <35
  51.   *get new user selection
  52.   @23,24
  53.   msel = ' '
  54.   @ &X_Y GET msel pict '!'
  55.   read
  56.   clear gets
  57.   IF MSEL $'&RIGHT'
  58.      EXIT
  59.   ENDIF msel $'&right'
  60. ENDDO while .not. msel$'&right'
  61. *update curr or quit to dbase
  62. DO CASE
  63.    CASE msel = 'M'
  64.      store '0' to curr
  65.    CASE msel = 'Q'
  66.      if '0' = curr
  67.        release curr,msel, x_y, xx, menu, right
  68.      quit
  69.     else
  70.      store SUBSTR(CURR,1,len(curr)-1) to curr
  71.     endif
  72.    OTHERWISE
  73.      IF TRM
  74.         STORE TRIM(LEF)+msel to curr
  75.      else
  76.        store curr+msel to curr
  77.     ENDIF
  78. ENDCASE
  79. ENDDO
  80. SET TALK OFF
  81. *ENDDO JUDY.PRG